Developer Helper 1: Phil & Dave's Excellent CD/Excellent CD HFS.raw/HyperCard/HyperCard 1.2.2 International/HyperCard Danish (DK-1.2.2)/Idestakke/Baggrundsideer/background_54528.txt

Text File | 1988-12-19 | 16KB | 749 lines

-- background: 54528 from stack: in
-- bmap block id: 49536
-- flags: 0000
-- background id: 0
-- name:
----- HyperTalk script -----
on newStack
  extend
end newStack

on extend
  -- type "udvid" into the message box and press return to make
  -- a year's worth of new cards.
  if the name of this stack contains "Baggrundsideer"
  then
  answer "Opret venligst en ny stak, f√∏r den udvides." with "OK"
else
  answer "Skal der laves kort til et nyt år?" with "OK" or "Annuller"
  if it is "Annuller" then exit extend
  put 60*60*24 into OneDay        --seconds in a day
  go to last card of this background
  put getStartDate() into start      --what date to begin on
  if start is "Annuller" then exit extend
  if field 16 is not empty then doMenu "New Card"   --don't overwrite
  repeat with cnt = 1 to 12   --months in a year
    put start into it        --a copy
    add OneDay*8 to it   --skip first week
    convert it to long date
    put word 1 of item 2 of it into field "Måned"
    put item 3 of it into field "√Ör"

    Repeat with index = 1+1 to 35+1
      put start into it
      --convert each day so that date rolls over to "1"
      --at end of month
      convert it to long date
      put (word 2 of item 2 of it) into field index
      add OneDay to start
    end repeat
    doMenu New Card
    add OneDay*8 to start
    put startOfMonth(start) into start
  end repeat
  doMenu "delete card"     --get rid of extra card at end
end if
end extend

function getStartDate
-- end of stack this month, whichever is newer
put (field "Måned") && "1," && (field "År") into it
if length(it) < 11 then put the date into it
else
  convert it to seconds
  if field 16 is not empty then add 60*60*24*32 to it
  --add 32 days for next month if this month has dates
end if
put startOfMonth(it) into it    --so we can compare
put the date into thisMonth
put startOfMonth(thisMonth) into thisMonth   --both at week starts in seconds
if thisMonth < 2587766400 then
  answer "Indstil Kontrolpanelet til dags dato" with "OK"
  return "Annuller"
end if
if it >= thisMonth then return it   --calendar already beyond today
convert it to short date
convert thisMonth to short date
answer "Startende fra hvilken dato?" with it or thisMonth or "Annuller"
if it is "Annuller" then return it
convert it to seconds
return it
end getStartDate

function startOfMonth aDate     -- the seconds of Monday before the 1st
put 60*60*24 into OneDay      --seconds in a day
put aDate into it
convert it to long date
put 1 into word 2 of item 2 of it     --first of month
convert it to seconds
convert it to long date
repeat while item 1 of it <> "S√∏ndag"
  convert it to seconds
  subtract OneDay from it    --look for previous Sunday
  convert it to long date
end repeat
convert it to seconds
return it
end startOfMonth

on openBackground
  push recent card
end openBackground


-- part 5 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=143 top=42 right=75 bottom=315
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: Måned


-- part 8 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=11 top=99 right=141 bottom=80
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 9 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=79 top=99 right=141 bottom=148
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 10 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=147 top=99 right=141 bottom=216
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 11 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=215 top=99 right=141 bottom=284
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 12 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=283 top=99 right=141 bottom=352
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 13 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=351 top=99 right=141 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 14 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=419 top=99 right=141 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 15 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=11 top=145 right=187 bottom=80
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 16 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=79 top=145 right=187 bottom=148
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 17 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=147 top=145 right=187 bottom=216
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 18 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=215 top=145 right=187 bottom=284
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 19 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=283 top=145 right=187 bottom=352
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 20 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=351 top=145 right=187 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 22 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=419 top=145 right=187 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 23 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=11 top=191 right=233 bottom=80
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 24 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=79 top=191 right=233 bottom=148
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 25 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=147 top=191 right=233 bottom=216
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 26 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=215 top=191 right=233 bottom=284
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 27 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=283 top=191 right=233 bottom=352
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 28 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=351 top=191 right=233 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 29 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=419 top=191 right=233 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 30 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=11 top=237 right=279 bottom=80
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 31 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=79 top=237 right=279 bottom=148
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 32 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=147 top=237 right=279 bottom=216
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 33 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=215 top=237 right=279 bottom=284
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 34 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=283 top=237 right=279 bottom=352
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 35 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=351 top=237 right=279 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 36 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=419 top=237 right=279 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 37 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=11 top=283 right=325 bottom=80
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 38 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=79 top=283 right=325 bottom=148
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 39 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=147 top=283 right=325 bottom=216
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 40 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=215 top=283 right=325 bottom=284
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 41 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=283 top=283 right=325 bottom=352
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 42 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=351 top=283 right=325 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 43 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=419 top=283 right=325 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 44 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=457 top=44 right=68 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 20689 / 20689
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gå til hjem
----- HyperTalk script -----
on mouseUp
  go Home
end mouseUp



-- part 45 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=382 top=43 right=67 bottom=418
-- title width / last selected line: 0
-- icon id / first selected line: 3430 / 3430
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Adresse
----- HyperTalk script -----
on mouseUp
  get the selection
  visual effect zoom open
  go to "Adresse"
  if it is not empty then find it
end mouseUp



-- part 46 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=420 top=44 right=72 bottom=453
-- title width / last selected line: 0
-- icon id / first selected line: 4432 / 4432
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gå til Opgaver
----- HyperTalk script -----
on mouseUp
  go to card "Opgaver1" of "Kalender"
end mouseUp



-- part 47 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=119 top=42 right=67 bottom=146
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to previous card
end mouseUp



-- part 48 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=311 top=42 right=67 bottom=338
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to next card
end mouseUp



-- part 49 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=7 top=42 right=75 bottom=107
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: År


-- part 50 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=448 top=327 right=339 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Udvid
----- HyperTalk script -----
on mouseUp
  extend
end mouseUp



-- part 51 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=349 top=42 right=67 bottom=380
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp